unit U_bank;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_database, ImgList, DB, ADODB, DBCtrls, GridsEh, DBGridEh,
  RzButton, ExtCtrls, RzPanel, DBAccess, MSAccess, MemDS, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid;

type
  TF_bank = class(TF_basedata)
    lrgntfldtbl1id: TLargeintField;
    strngfldtbl1name: TStringField;
    strngfldtbl1ll: TFloatField;
    cxgrdbtblvwGrid1DBTableView1id: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1name: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1ll: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_bank: TF_bank;

implementation

{$R *.dfm}

procedure TF_bank.FormCreate(Sender: TObject);
begin
  inherited;
tbl1.Open;
end;

end.
